home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / M / Modem Answer 2 Folder / ModemAnswer.p < prev    next >
Encoding:
Text File  |  1989-10-28  |  913 b   |  50 lines  |  [TEXT/MSP ]
  1. PROGRAM ModemAnswer;
  2.  
  3. USES
  4.     Memtypes,QuickDraw,OSIntf,ToolIntf,PackIntf;
  5.  
  6. VAR
  7.     Err : OSErr;
  8.     OutRefNum, InRefNum : integer;
  9.     InputBuffer : PACKED ARRAY[1..10000] OF char;
  10.     Config : integer;
  11.     rr : Str255;
  12.  
  13.  
  14. PROCEDURE WriteToModem;
  15. CONST
  16.     sendThis = 'AT S0 = 3';
  17. VAR
  18.     count : LongInt;
  19.     buffer : PACKED ARRAY[1..50] OF char;
  20.     I : INTEGER;
  21. BEGIN
  22.   count := LENGTH(sendThis);
  23.     for i := 1 to count do
  24.     buffer[i] := sendThis[i];
  25.     buffer[count + 1] := chr(13);
  26.     count := count + 1;
  27.     Err := FSWrite(OutRefNum, count, @buffer);
  28. END;
  29.  
  30. PROCEDURE SetUp;
  31.  
  32. BEGIN
  33.     Err := OpenDriver('.AOut', OutRefNum);
  34.     Err := OpenDriver('.AIn', InRefNum);
  35.     Err := SerSetBuf(InRefNum, @InputBuffer, 10000);
  36.     Config := baud300 + data8 + stop10 + NoParity;
  37.     Err := SerReset(OutRefNum, Config);
  38.     Err := SerReset(InRefNum, Config);
  39. END;
  40.  
  41. BEGIN
  42.   Setup;
  43.   WriteToModem;
  44.   
  45.   Err := SerSetBuf(InRefNum, @InputBuffer, 0);
  46.   RAMSDClose(sPortA);
  47.  
  48.  
  49. END.
  50.